home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / space warp 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  279 lines
  1. 0 REM"[141]ADAPTED BY STEVEN DARNOLD, P.O. BOX 201  ALEXANDRA, NEW ZEALAND[141]
  2. 1 H[178]0:G[178]0:S[178]0:F[178]0:T[178]3000:[137]6000
  3. 2 [153]"RETURNLOAD"
  4. 3 [129] F[178]1[164]23
  5. 4 S1[178][181]([187](1)[172]34):[139]S1[178]0[167]4
  6. 5 [153][166]S1);"."
  7. 6 [130]F
  8. 20 C[178]0:R[178]0:D1[178]0:S[178]S[170]1
  9. 42 V[178][181]([187](1)[172]10):[139]V[178]0[167]42
  10. 44 [139]G[178]1[167]V[178]2
  11. 50 A[178][181]([187](1)[172]10):B[178][181]([187](1)[172]10)
  12. 70 A$[178][196](A):B$[178][196](B)
  13. 90 [139]A[178]5[176]B[178]5[167]50
  14. 100 [139]A[172]B[179]10[167]50
  15. 105 [153]"CONTENERGY=";T;"CMD    "
  16. 106 [153]"EXPENDED LAST SHOT:";L1;"CMD  ":[139]S[177]20[175]T[177]0[167]4000
  17. 109 [139]G[178]1[167][137]7007
  18. 110 [129] N[178]1[164]2[172]V:[153]:[130]
  19. 150 [129]Z[178]1[164]31
  20. 160 [153]"DEF))";A$;" X";B$;" WAIT>";
  21. 170 [139]R[177][178]1[167]3000
  22. 190 [129]W[178]1[164]275:[130]
  23. 200 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD        WAITCMDCMDCMDCMDCMDCMDCMD";
  24. 205 [139]G[178]1[167]300
  25. 210 [139]C[177]0[167]240
  26. 220 [161]C$:C[178][197](C$)
  27. 230 [139]C[178]0[167]300
  28. 240 [161]D$:D[178][197](D$)
  29. 250 [139]D[178]0[167]300
  30. 260 [139]10[172]C[170]D[178]A[172]B[167]R[178]1
  31. 270 [139]R[178]1[167]160
  32. 280 R[178]2
  33. 300 [130]Z
  34. 330 [129]K[178]1[164]10
  35. 332 Q[178]25:[141]10000
  36. 336 Q[178]20:[141]10000
  37. 338 [130]K
  38. 339 [139]G[178]1[167]7060:Q[178]500:[141]10000
  39. 340 [139]H[178]1[167]2000
  40. 350 H[178]1
  41. 380 [153]" WE'VE BEEN HIT, CAPTAIN!!!
  42. 390 Q=1500:GOSUB 10000
  43. 400 PRINT"[154]DAMAGE CONTROL REPORT:[146]"
  44. 405 PRINT"    ALL SHIELDS ARE DOWN AND HAVE
  45. 410 [153]"SUFFERED IRREPAIRABLE DAMAGE...
  46. 420 PRINT"[155]ONE MORE LIKE THAT AND WE'RE THROUGH!!!":Q=2400:GOSUB10000
  47. 422 PRINT"[150]SIR..."
  48. 423 PRINT "    ENGINEERING REPORTS ENERGY LEVELS
  49. 424 [153] "    ARE DECREASING AT A DANGEROUS RATE!!":Q[178]2100:[141]10000
  50. 426 [139]H[178]1[167]L1[178]300
  51. 430 Q[178]1250:[141]10000
  52. 435 T[178]T[171]L1
  53. 437 [161]X$:[161]Y$:[161]Z$
  54. 440 [139]H[178]1[167]2
  55. 460 T[178]T[171]D1
  56. 470 [139]T[179]0[167]7000
  57. 480 [139]S[177]20[167]106
  58. 530 [161] X$:[161] Y$:[161] Z$
  59. 535 [139]R[178]1[167][137]20
  60. 540 R[178]0:C[178]0:D1[178]0
  61. 550 [153]"ONONON"
  62. 560 [129]X[178]1[164]Z[170]8
  63. 570 [153]"";
  64. 580 [130]X
  65. 590 [137]190
  66. 2000 [129]K[178]1[164]20
  67. 2252 [151]53280,1:[151]53281,1
  68. 2253 Q[178]15:[141]10000
  69. 2254 [151]53280,0:[151]53281,0
  70. 2255 Q[178]15:[141]10000
  71. 2256 [130]K
  72. 2258 [153]"LOAD"
  73. 2260 Q[178]5000:[141]10000:[137]1
  74. 3000 D1[178]D1[170][181]((Z[173]1.8)[174]2):L1[178]D1:P[178]0
  75. 3030 [153]""
  76. 3032 [129]N[178]1[164]2[172]V
  77. 3034 [153]
  78. 3036 [130]N
  79. 3038 N[178]31
  80. 3040 [153]"SYSCMDCMD";
  81. 3044 [139]R[178]2[167][153]"";
  82. 3048 [139]R[178]2[167][137]3062
  83. 3062 [139]P[178]0[167][137]3200
  84. 3070 [129] I[178]1[164]38
  85. 3090 [153]" CMDCMD";
  86. 3120 [130]I
  87. 3140 [137]460
  88. 3200 [153]"TOCMDCMDCMDCMD";:[141] 9000
  89. 3202 [139] N[179]Z [175] R[179]2 [167] 3560
  90. 3260 [153]"ANDCMDCMDCMDCMD";:[141] 9000
  91. 3262 [139] N[179]Z [175] R[179]2 [167] 3560
  92. 3265 [153]"ANDCMDCMDCMDCMD";:[141] 9000
  93. 3267 [139] N[179]Z [175] R[179]2 [167] 3560
  94. 3270 [153]"POSCMDCMDCMDCMD";:[141] 9000
  95. 3272 [139] N[179]Z [175] R[179]2 [167] 3560
  96. 3275 [153]"POSCMDCMDCMDCMD";:[141] 9000
  97. 3276 [139] N[179]Z [175] R[179]2 [167] 3560
  98. 3330 [153]"NEWCMDCMDCMDCMD";:[141] 9000
  99. 3332 [139] N[179]Z [175] R[179]2 [167] 3560
  100. 3335 [153]"NEWCMDCMDCMDCMD";:[141] 9000
  101. 3337 [139] N[179]Z [175] R[179]2 [167] 3560
  102. 3370 [153]"FREWAITCMDCMDCMDCMD";:[141] 9000
  103. 3372 [139] N[179]Z [175] R[179]2 [167] 3560
  104. 3375 [153]"FREWAITCMDCMDCMDCMD";:[141] 9000
  105. 3377 [139] N[179]Z [175] R[179]2 [167] 3560
  106. 3400 [153]"USRWAITCMDCMDCMDCMD";:[141] 9000
  107. 3402 [139] N[179]Z [175] R[179]2 [167] 3560
  108. 3405 [153]"USRWAITCMDCMDCMDCMD";:[141] 9000
  109. 3407 [139] N[179]Z [175] R[179]2 [167] 3560
  110. 3440 [153]"TAB(WAITCMDCMDCMDCMD";:[141] 9000
  111. 3560 P[178]1:[137] 3030
  112. 4000 [153]"DEFSIR!":Q[178]500:[141]10000
  113. 4005 [153]"LONG RANGE SENSORS INDICATE THAT THERE
  114. 4010 PRINT"ARE NO MORE TARGETS IN OUR AREA...":Q=2000:GOSUB10000
  115. 4050 GOSUB5000
  116. 4200 PRINTCHR$(142);:PRINT"[154][147] [200][201][199][200][160][195][207][205][205][193][206][196][160][211][197][206][196][211][160][217][207][213][160][212][200][197][201][210][160][195][207][206][199][210][193][212]-"
  117. 4210 PRINT"[213][204][193][212][201][207][206][211][160][198][207][210][160][211][213][195][195][197][211][211][198][213][204][204][217][160][195][207][205][208][204][197][212][201][206][199]
  118. 4220 [153]"(null)(null)(null)(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null)DEF...(null)(null)ATN(null)STR$PEEK(null) ASC(null)(null)CLOSEASC(null)(null)(null)(null)VAL LENATN(null)(null)(null)
  119. 4230 PRINT"[212][207][160][193][195][212][201][207][206]....":Q=1500:GOSUB10000
  120. 4245 PRINTCHR$(14);:Q=3000:GOSUB 10000
  121. 4260 PRINT"[147][194]EST SCORE SO FAR IS:";R1
  122. 4265 PRINT"[154][217]OUR SCORE IS:";T:IFR1=0THEN4271
  123. 4270 IFT>R1THENPRINT"[158]   (A NEW RECORD!)"
  124. 4271 PRINT"[158][217]OU HAVE A CHOICE:
  125. 4272 [153]"(null)RESS  (null) WAIT TO CONTINUE
  126. 4273 PRINT"[208]RESS  [205] [146] TO RETURN TO DISK MENU
  127. 4274 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]4274
  128. 4275 [139]R$[178]"P"[167]4280
  129. 4276 [153]"LOAD (null)ETURNING TO THE DISK MENU"
  130. 4277 [147]"MENU",8
  131. 4278 [138]
  132. 4279 [128]
  133. 4280 [139] T[179][178]R1[167][137]4300
  134. 4300 Q[178]4000:[141] 10000:T[178]3000
  135. 4310 [153][199](142);:[153]"LOAD
  136. 4320 FOR Y=1TO30
  137. 4330 PRINT"[158]*     ***     ***     ***     ***     *
  138. 4340 Q[178]35:[141]10000
  139. 4350 [153]"DEFFLASHFLASHFLASHFLASHFLASH
  140. 4355 Q=35:GOSUB10000
  141. 4360 NEXT Y
  142. 4370 PRINT"[150][147] IMPORTANT MESSAGE FROM FLEET HDQTRS
  143. 4380 [153]"JUST ARRIVED....":[153][199](142);
  144. 4390 [153]"CONT PEEKVALLENATN(null)(null)VALCLOSE(null)ASCCLOSE(null)(null)(null)(null)CLOSE(null)VALLENVAL(null)(null)CLOSE(null)(null)LENLENVAL(null)(null), (null)(null)(null)
  145. 4400 PRINT"[193][210][197][160][209][213][193][204][201][198][201][197][196][160][212][207][160][197][205][194][193][210][203][160][213][208][207][206][160][193][206][207][212][200][197][210]
  146. 4410 [153]"(null)RIGHT$(null)(null)RIGHT$(null)(null).  (null)(null)VAL(null)(null) (null)LEFT$RIGHT$ASC(null)WAIT (null)(null) (null)(null)ATN(null)(null) ATNCHR$ATNRIGHT$(null).
  147. 4430 Q=1200:GOSUB10000:PRINTCHR$(14);
  148. 4450 WAIT653,1,1:WAIT653,1
  149. 4470 H=0
  150. 4480 X=5:Q=300:GOSUB10000:PRINT"[147]":S=0
  151. 4490 FORW=1TO5
  152. 4500 PRINT"[150]GET READY[154] ***[150] ";X:X=X-1:Q=700:GOSUB10000
  153. 4510 NEXTW:GOTO2
  154. 5000 I=0:N1=TI:J=0
  155. 5020 P1=INT(RND(1)*37):D=1:S$=". "
  156. 5030 P2=INT(RND(1)*37)
  157. 5040 P3=INT(RND(1)*37)
  158. 5045 P=INT(RND(1)*37)
  159. 5060 PRINT"[159][147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"SPC(12)"[213][192][201]
  160. 5070 [153]"     NCC-1701   WAIT           STEP   (null)WAIT      "
  161. 5080 [153]"  NEWNEWNEWNEWNEWNEWNEWNEW   NEWNEWNEWWAIT  (null)  (null)   (null)(null) (null)(null)(null) (null)(null)  (null)  WAITSTEP
  162. 5090 PRINTSPC(10)"[145]   "SPC(11)"[169] [146][169][223]   [146][169]
  163. 5100 [153][166]10)"   "[166]10)"STEP WAITSTEP
  164. 5110 PRINTSPC(10)"   "SPC(9)"[169] [146][169]
  165. 5120 [153][166]10)"   "[166]8)"STEP WAITSTEP
  166. 5130 PRINTSPC(10)"   [146][162][162][162][162][162][162][162]  [146][169]
  167. 5140 [153]"    (null)                   (null)WAIT
  168. 5150 PRINT"      [223]         NCC-1701 [146](
  169. 5160 [153][166]9)"(null)              WAITSTEP
  170. 5165 PRINT"[150]GOOD WORK CAPTAIN!!!    LETS GO HOME...
  171. 5190 A$(0)[178]" ":A$(1)[178]"SYS*":B$(0)[178]"THEN":B$(1)[178]"+":B$(2)[178]"ABS":B$(3)[178]"GETWAIT":B$(4)[178]"INT"
  172. 5200 B$(5)[178]"SGN":B$(6)[178]"FNWAIT":B$(7)[178]" WAIT":B$(8)[178]" ":TN[178]0
  173. 5220 [153]""[166]19)A$(I[170]1)[166]17)A$(I[170]1)
  174. 5230 [139]TN[177]40[167]I[178][168]I
  175. 5240 [153]"SYS"B$(J)
  176. 5250 J[178]J[170]1.5
  177. 5260 [139]J[177]8[167]J[178]J[171]8
  178. 5270 [153]""[163]P2)S$:P2[178]P2[171]D:[139]P2[179]D[167]P2[178]37:[153]"ON  "
  179. 5280 [153]""[163]P1)S$:P1[178]P1[171]D:[139]P1[179]D[167]P1[178]37:[153]"ON  "
  180. 5290 [153]""[163]P3)S$:P3[178]P3[171]D:[139]P3[179]D[167]P3[178]37:[153]"ON  "
  181. 5300 [153]""[163]P)S$:P[178]P[171]D:[139]P[179]D[167]P[178]37:[153]"ON  "
  182. 5320 TN[178]TN[170]1:[139]TN[179]85[167]5220
  183. 5360 [142]
  184. 6000 [151]53280,0:[151]53281,0:[153]"RETURNLOAD"
  185. 6010 [129]I[178]1[164][197]([201](TI$,2)):R[178][187](1):[130]I
  186. 6030 [153] [166]15):[153]"CONTRIGHT DEFHERE":Q[178]1300:[141]10000
  187. 6040 [153]"":[153]:[153] [166]20):[153]"     "
  188. 6050 Q[178]500:[141]10000
  189. 6060 [153]"":[153]:[153][166]20):[153]" NOW"
  190. 6090 Q[178]1500:[141]10000
  191. 6100 [153]"LOADDEF":[153][166]7);
  192. 6120 [129] I[178]1[164]26
  193. 6130 [153]" ";
  194. 6140 [130]
  195. 6150 [153]
  196. 6160 [129]I[178]1[164]15
  197. 6170 [153][166]7);
  198. 6180 [153]" WAIT                         WAIT"
  199. 6190 [130]
  200. 6200 [153][166]7)
  201. 6210 [129] I[178]1[164]26
  202. 6220 [153]" ";
  203. 6230 [130]
  204. 6240 [153]"ONONONONONONONONONONONON"
  205. 6250 [153]" CONTWAIT   SPACE WARS
  206. 6255 PRINT"   WARP 1 DRIVE "
  207. 6260 PRINT"   X MULTIPLY X":FORTM=1TO2500:NEXT
  208. 6270 Q=1000:GOSUB10000
  209. 6280 P=0
  210. 6290 FORI=1TO3
  211. 6300 PRINT"";
  212. 6310 PRINTSPC(3*I)
  213. 6320 FORJ=1TO24
  214. 6330 IFP=1THENPRINT" ";
  215. 6340 IF P=1 THEN 6360
  216. 6350 PRINT"[158]*";
  217. 6360 NEXTJ
  218. 6370 NEXTI
  219. 6380 IFP=1THEN6400
  220. 6390 P=P+1:GOTO6290
  221. 6400 P=0
  222. 6410 FORI=1TO5STEP4
  223. 6420 PRINT"";:PRINTSPC(36-I)
  224. 6430 FORJ=1TO24
  225. 6440 IFP=1THENPRINT" [157][157]";:IFP=1THEN6470
  226. 6460 PRINT"[159][209][157][157]";
  227. 6470 NEXTJ
  228. 6480 NEXTI
  229. 6490 IFP=1THEN6510
  230. 6500 P=P+1:GOTO6410
  231. 6510 Q=1000:GOSUB10000
  232. 6520 PRINT"[147]TOP SECRET MESSAGE FOLLOWS...":Q=900:GOSUB10000
  233. 6530 PRINT"[147][129]PRESS SHIFT[146][145][157][157][157][157][157][164][164][164][164][164] TO DECODE."
  234. 6540 PRINT"[154][217][207][213][160][200][193][214][197][160][194][197][197][206][160][199][201][214][197][206][160][193][160][198][201][197][204][196][160][208][210][207][205][207][212][201][207][206]
  235. 6550 [153]"(null)(null)CLOSE(null)LEFT$VALCLOSE(null)ATN(null)(null)CLOSE(null)ASCCLOSECOMMANDER RIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)VAL(null)(null)RIGHT$LENVAL
  236. 6560 PRINT"[207][198][160][212][200][197][160][198][197][196][197][210][193][212][201][207][206].
  237. 6570 [153]"(null)(null)(null)CLOSEATN(null)VALCLOSE(null)(null)CLOSE(null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSEASC(null)VALVAL(null)CLOSELEFT$STR$(null)(null)(null)(null)CLOSEATN(null)STR$
  238. 6580 PRINT"[212][193][203][197][160][195][207][205][205][193][206][196][160][207][198][160][193][160][215][193][210][208][160][211][208][197][197][196][160][211][212][193][210][211][200][201][208].
  239. 6590 [153]"(null)(null)(null)(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null)CLOSERIGHT$(null)CLOSEVAL(null)(null)(null)VAL(null)VAL(null)(null)CLOSELEFT$ATN(null)ATN(null)STR$(null)(null)(null).
  240. 6600 PRINT"[207][206][160][212][200][197][160][215][193][217][160][217][207][213]'[204][204][160][194][197][160][194][210][213][212][193][204][204][217][160][193][212][212][193][195][203][197][196]
  241. 6610 [153]"PEEK(null)CLOSELEN(null)(null)PEEKRIGHT$(null)ATN(null)RIGHT$(null)(null)CLOSE(null)(null)(null)(null)VALSTR$(null)VAL(null)CLOSE(null)ATN(null)(null)LENLEFT$VALSTR$CLOSEPEEK(null)
  242. 6620 PRINT"[203][204][201][206][199][207][206][160][198][207][210][195][197][211][160][203][206][207][215][206][160][212][207][160][194][197][160][201][206][160][212][200][197][160][193][210][197][193].
  243. 6630 [153]"(null)(null)(null)CLOSE(null)(null)(null)(null)RIGHT$(null)VALCLOSEPEEK(null)CLOSE(null)(null)(null)(null)RIGHT$STR$RIGHT$(null)CHR$CLOSE(null)LEFT$VALCLOSEATN(null)(null)(null)VAL(null)CLOSE(null)(null)
  244. 6640 PRINT"[212][200][197][160][195][207][205][194][201][206][193][212][201][207][206][211][160][201][206][211][201][196][197][160][212][200][197][205].
  245. 6645 [153]"DEFTHENVAL (null) ATN (null) (null) (null) VALWAITFNONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDTOTOTOTOTOTOTOTOTOTOTOTOTO";
  246. 6647 [153][163]22)"DEF))) 6 X 7 WAITONCMDCMDCMDCMDCMDCMDCMDTOTOTOTOTOTOTO>CONT
  247. 6650 PRINTSPC(5)"[154][203][197][217]-[201][206] [150]42[154] [212][207] [196][197][211][212][210][207][217] [212][200][201][211] [212][207][210][208][197][196][207].
  248. 6660 [153][166]5)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  249. 6690 PRINT"[129][201][198][160][217][207][213]'[210][197][160][210][197][193][196][217][160][212][207][160][211][212][193][210][212], [208][210][197][211][211] [211][200][201][198][212][146][145][157][157][157][157][157][164][164][164][164][164].
  250. 6700 [146]653,1,1:[146]653,1
  251. 6710 [153][199](14);
  252. 6720 [146]653,1,1:[146]653,1
  253. 6730 [153][199](142);
  254. 6740 [153]"LOADHERE THEY COME, CAPTAIN!!
  255. 6750 Q=900:GOSUB10000
  256. 6760 GOTO 2
  257. 7000 G=1:GOTO20
  258. 7005 G=1:GOTO20
  259. 7007 Q=1100:GOSUB 10000
  260. 7010 PRINT "DAMAGE CONTROL REPORT:[146]"
  261. 7020 PRINT"ENERGY LEVELS TOO LOW...ALL RESERVES
  262. 7030 [153]"SHUNTED TO LIFE SUPPORT SYSTEMS...
  263. 7040 Q=1750:GOSUB10000
  264. 7045 PRINT"[150]REPORT FROM COMMUNICATIONS:[146]
  265. 7050 [153]"SIR.... THE COMMUNICATIONS OFFICER
  266. 7055 PRINT"WISHES TO INFORM YOU THAT THE KLINGONS
  267. 7056 [153]"DO NOT ACCEPT OUR SURRENDER...
  268. 7057 PRINT"WE ARE ABOUT TO BE VAPOURIZED!
  269. 7058 Q[178]2100:[141]10000
  270. 7059 [153]"":[137]110
  271. 7060 [137]2000
  272. 9000 [139]H[178]2[167][142]
  273. 9020 N[178]N[171]3
  274. 9025 [139]R[178]2[167][142]
  275. 9040 [142]
  276. 10000 [129] D[178]1 [164] Q:[130] D
  277. 10020 [142]
  278. 10050 [143] WHC 91:04:01/95:05:29
  279.